home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / afsock_1 / afsock~1.exe / Mailer / Addressee.cls next >
Encoding:
Visual Basic class definition  |  1998-12-25  |  1.4 KB  |  51 lines

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "Addressee"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Option Explicit
  17.  
  18. 'local variable(s) to hold property value(s)
  19. Private mvarPerson As String 'local copy
  20. Private mvarEMail As String 'local copy
  21. Public Property Let EMail(ByVal vData As String)
  22. 'used when assigning a value to the property, on the left side of an assignment.
  23. 'Syntax: X.EMail = 5
  24.     mvarEMail = vData
  25. End Property
  26.  
  27.  
  28. Public Property Get EMail() As String
  29. 'used when retrieving value of a property, on the right side of an assignment.
  30. 'Syntax: Debug.Print X.EMail
  31.     EMail = mvarEMail
  32. End Property
  33.  
  34.  
  35.  
  36. Public Property Let Person(ByVal vData As String)
  37. 'used when assigning a value to the property, on the left side of an assignment.
  38. 'Syntax: X.Person = 5
  39.     mvarPerson = vData
  40. End Property
  41.  
  42.  
  43. Public Property Get Person() As String
  44. 'used when retrieving value of a property, on the right side of an assignment.
  45. 'Syntax: Debug.Print X.Person
  46.     Person = mvarPerson
  47. End Property
  48.  
  49.  
  50.  
  51.